<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>35</cardCount>
<cardID>11881</cardID>
<listID>2669</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal lastFind, lastChar, lastCardshow groupsput "Type it here." into lastFindput empty into lastCharput empty into lastCardpass openStackend openStackon closeStackglobal lastFind, lastChar, lastCardhide groupsput empty into lastFindput empty into lastCharput empty into lastCardpass closeStackend closeStackon suspendStackhide groupsend suspendStackon resumeStackshow groupsend resumeStackon importText n-- ^z -- 1992.07.27-- bring in n cards of Shakespeare-stack text from another stack-- to do it, make a copy of this stack, call it "EmptyShaks"-- and tell HyperCard "start using stack EmptyShaks"-- then go to the stack containing data to be imported-- and type "importText 27" ((or however many cards to get))-- then rename the stack from "EmptyShaks" to whatever ....repeat n timesselect text of field "Title"doMenu "Copy Text"push cardgo to the last card of stack "EmptyShaks"doMenu "New Card"select text of field "Title"doMenu "Paste Text"pop cardselect text of field "Body"doMenu "Copy Text"push cardgo to the last card of stack "EmptyShaks"select text of field "Body"doMenu "Paste Text"pop cardgo nextend repeatend importText</script>
